home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 204 / 204.d81 / down down down (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  29KB  |  863 lines
  1. 0 n=1:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1
  2. 1 poke648,128:poke53265,27:poke53272,8:poke650,128:ml=6:hs=0:gosub23000
  3. 2 poke53282,2:poke53283,1:poke53270,216:poke53281,0:poke53280,0
  4. 3 poke53272,8:poke648,128:gosub25000
  5. 4 dv=peek(186)
  6. 5 cd$=""
  7. 7 cl$="                                       "
  8. 10 dima$(125),a(127)
  9. 20 fora=1to13:readb:a(b)=1:next:goto12000
  10. 103 restore:fora=1to13:readb:next:mb=3:l=1:s=.:ifl>1thengosub31000
  11. 104 pokesd+4,wf:pokesd+1,33:pokesd,135:pokesd+4,17:fora=1to50:next:ct=.:wf=16
  12. 105 readcl,ad,mc:fora=nto100:reada$(a):next
  13. 106 fora=101to125:a$(a)=a$(100):next:poke53265,23
  14. 107 print"[147]";:poke198,.:poke646,cl+8:poke53282,ad:poke53283,mc
  15. 108 fora=nto25:print:next
  16. 110 fora=nto18:printtab(6)"[167]"a$(a):next
  17. 115 printcd$tab(6)"[167]"a$(19)""
  18. 120 x=20:sc=32968:y=20:rv=8:ov=10:jp=56320:sp=32
  19. 131 poke53272,rv:vv=rv:rv=ov:ov=vv
  20. 132 ct=ct+n:ifct=10thenpokesd+4,wf
  21. 133 pokepx+sc,sp
  22. 135 px=x:pokesc+x,81
  23. 140 bx=peek(x+sc+40)
  24. 145 ifbx=spthenpokepx+sc,sp:gosub17000:goto182
  25. 146 ifbx=87thengosub18000:goto182
  26. 150 ifbx=77theno=n:x=x+n:ifpeek(x+sc)<>spthenx=px
  27. 160 ifbx=78theno=n:x=x-n:ifpeek(x+sc)<>spthenx=px
  28. 162 ifbx=91thengosub21000
  29. 172 ifbx=27thenx=x-5:goto18100
  30. 174 ifbx=29thenx=x+5:goto18100
  31. 176 ifbx=35then16000
  32. 177 ifbx=.thenpokex+sc+40,sp:s=s+100*l:print"score"s:gosub18200
  33. 178 ifa(bx)then15000
  34. 180 ifo=ntheno=.:goto200
  35. 182 j=peek(jp):if(jand4)=.thenx=x-n:bm=107:mm=84:pm=89:bx=peek(x+sc):gosub1000
  36. 183 getqq$:ifqq$="[136]"then8000
  37. 184 if(jand8)=.thenx=x+n:bm=115:mm=89:pm=84:bx=peek(x+sc):gosub1000
  38. 186 ifdm=norj=111thendm=.:goto15000
  39. 187 k=.
  40. 199 ifsm=nthenpokepx+sc,pm:pokex+sc,mm:sm=0
  41. 200 goto131
  42. 1000 k=n:dm=.:ifa(bx)thendm=n:return
  43. 1008 ifx<.thenx=px:pokex+sc,bm:fora=nto50:next:return
  44. 1009 ifbx=.thengosub18200:s=s+100*l:printcl$"score"s:goto1020
  45. 1010 ifbx<>spthenx=px:pokex+sc,bm:gosub18500:return
  46. 1020 sm=n:return
  47. 8000 print"[147]        1[159] play another game"
  48. 8010 print"        2[159] return to loadstar"
  49. 8020 getqq$:ifqq$<>"1"andqq$<>"2"then8020
  50. 8030 ifqq$="1"thenrun
  51. 8040 rem
  52. 8065 load"h1",dv
  53. 9999 data109,125,102,104,92,85,73,36,31,42,72,68,70
  54. 10000 b=63200:c=63208
  55. 10001 ifc>63300thenend
  56. 10002 q$=chr$(34):d$=chr$(20):print"[147]";:fora=btoc
  57. 10010 printa"[157]data"q$q$d$spc(26)"[165]"q$:next
  58. 10020 print"b="c+1":c="c+9":goto10001"
  59. 10030 print"";:fora=631to640:pokea,13:next:poke198,10:end
  60. 12000 print"[147][149]down down down down down down down..."
  61. 12010 print"by     john w. harris"
  62. 12020 print"[183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163][163][183][183][183][183][163][163][163]";
  63. 12030 fora=1to2500:next
  64. 12040 print"":fora=1to7:printtab(20)"[209][145][157] ":print:forb=1to70:next:next
  65. 12045 pokesd+5,0:pokesd+6,240:pokesd+1,150:pokesd,0:pokesd+4,17
  66. 12047 pokesd+5+7,0:pokesd+6+7,240:pokesd+1+7,75:pokesd+7,0:pokesd+4+7,33
  67. 12050 fora=1to3:forb=150to70step-8:pokesd+1,b:pokesd+1+7,b*1.5:poke53282,b:next
  68. 12060 forb=70to150step6:pokesd+1,b:pokesd+1+7,b*1.3:poke53283,b:next:next
  69. 12070 pokesd+4+7,0:pokesd+4,16:pokesd+5,9:pokesd+6,0:gosub25010:goto19050
  70. 15000 pokepx+sc,32
  71. 15002 pokesd+4,wf:pokesd+5,12:pokesd+6,96:pokesd+1,96:pokesd,0:pokesd+4,129
  72. 15005 pokex+sc,102:fora=1to250:next
  73. 15010 pokex+sc,81:fora=1to250:next
  74. 15020 pokex+sc,108:fora=1to250:next
  75. 15030 pokex+sc,123:fora=1to250:next
  76. 15040 pokex+sc,126
  77. 15045 fora=100to0step-1.1:pokesd+1,a:next:pokesd+5,9:pokesd+6,0
  78. 15050 pokex+sc,32:fora=1to250:next:pokesd+4,128
  79. 15055 mb=mb-1
  80. 15057 ifmb=0then19000
  81. 15060 print"[129][147]"
  82. 15065 p$="s":ifmb=1thenp$=""
  83. 15070 printmb"marble"p$" left":poke53282,1:poke53283,1
  84. 15080 fora=1to3000:next:goto106
  85. 16000 pokesd+4,wf
  86. 16001 pokex+sc,32:s=s+l*1000:l=l+1:pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,10
  87. 16002 pokesd+4,17:fora=10to160step10:poke53282,int(rnd(1)*16)
  88. 16003 poke53283,int(rnd(1)*16)
  89. 16004 pokesd+1,a:forb=1to100:next:next:pokesd+4,16:pokesd+5,9:pokesd+6,0
  90. 16005 poke53282,a:poke53283,mc
  91. 16006 print"[129]"
  92. 16007 poke53282,1:poke53283,1:print"[147]score"s
  93. 16010 pokex+sc-40,32:ifl<=mlthen104
  94. 16020 print"[147][149]you win!":sc=sc+ml*10000+25000:fora=1to3000:next
  95. 16030 print"[207][207][207][207]              [207][207][173][166][189][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  96. 16040 print"[207][207][207][207]              [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  97. 16050 print"[207][207][207][207]              [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  98. 16060 print"[207][207][207][207][207][207]          [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  99. 16070 print"[207][207][207][207][207][207]   yay!   [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  100. 16080 print"[207][207][207][207][207][207][207][207]      [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  101. 16090 print"[207][207][207][207][207][207][207][207]      [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  102. 16100 print"[207][207][207][207][207][207][207][207][207][207]  [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  103. 16110 print"[207][207][207][207][207][207][207][207][207][207][209] [207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  104. 16120 print"[207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207][207]"
  105. 16130 pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,78:pokesd+4,33
  106. 16140 fora=1to6:forb=78to124:pokesd+1,b:poke53282,b:poke53283,b*2:next
  107. 16145 forb=124to78step-1:pokesd+1,b:poke53282,b:poke53283,b*2:next:next
  108. 16147 pokesd+4,32
  109. 16152 poke53282,2:poke53283,3
  110. 16160 print"[192][192][192][192][192][192][192][192][192][192]"
  111. 16170 print"[192]the end [192]"
  112. 16180 print"[192][192][192][192][192][192][192][192][192][192]"
  113. 16190 fora=1to3000:next
  114. 16200 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  115. 16210 print"[192]to be continued...[192]"
  116. 16220 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  117. 16230 fora=1to3000:next:goto19050
  118. 17000 s=s+l*15:printcd$:s=s+l*15:printtab(6)"[167]"a$(y)cl$"score"s:y=y+1
  119. 17010 ifdc=nthenreturn
  120. 17020 pokex+sc,81:return
  121. 18000 dc=n:pokesd+4,wf:pokepx+sc,65:fora=1to50:next:pokepx+sc,32:pokex+sc+400,65
  122. 18003 pokesd+5,.:pokesd+6,240:pokesd+1,100:pokesd,.:pokesd+4,17
  123. 18010 fora=150to60step-10:pokesd+1,a:gosub17000:next:pokesd+4,16:pokesd+5,9
  124. 18020 pokesd+6,.:dc=.:return
  125. 18100 pokepx+sc,65:gosub18600:pokepx+sc,sp
  126. 18120 pokex+sc,65:gosub18700:goto131
  127. 18200 pokesd+4,wf:pokesd+1,67:pokesd,15
  128. 18210 pokesd+4,33:wf=32:ct=.:return
  129. 18300 pokesd+4,0:pokesd+5,.:pokesd+6,240:pokesd,.:pokesd+1,100:pokesd+4,33
  130. 18310 fora=100to50step-3:forb=atoa-40step-2
  131. 18320 pokesd+1,b:next:next:pokesd+4,32:return
  132. 18400 pokesd+5,.:pokesd+6,240:pokesd,.:pokesd+1,60:pokesd+4,33
  133. 18410 fora=60to120step4:forb=atoa+13:pokesd+1,b:pokesd+1,b+2:pokesd+1,b+1
  134. 18420 next:next:pokesd+4,32:pokesd+5,9:pokesd+6,0:return
  135. 18500 pokesd+4,wf:pokesd,.:pokesd+1,10:pokesd+4,17:ct=4:wf=16:return
  136. 18600 pokesd+4,wf:pokesd+5,0:pokesd+6,240:pokesd,0:pokesd+1,100:pokesd+4,129
  137. 18610 fora=100to10step-4:pokesd+1,a:next:pokesd+4,128:return
  138. 18700 pokesd+4,wf:pokesd,.:pokesd+1,100:pokesd+4,129
  139. 18710 fora=10to100step4:pokesd+1,a:next:pokesd+4,128:pokesd+5,9:pokesd+6,.
  140. 18720 return
  141. 19000 print"[165][165][165]you lose[167][167][167]":gosub18300
  142. 19010 fora=1to3000:next
  143. 19050 poke53265,27:ifs>hsthenhs=s
  144. 19070 gosub24000
  145. 19100 sg=.